library(leaflet)
library(dplyr)
library(readxl)
library(ggplot2)
library(spatstat)
library(sf)
library(geojsonio)

#bogota <- geojson_read("../geodata/bogota.geojson", what = "sp")
bogota_json <- readLines("../geodata/upla.json") %>%  paste(collapse = "\n")

m <- leaflet(options = leafletOptions(minZoom = 0, maxZoom = 18)) %>% 
  addTiles() %>% 
  setView(lng = -74.10002385122866 , lat = 4.636962048294948, zoom = 10) %>% 
  addGeoJSON(bogota_json, weight = 1, color = "#444444", fill = TRUE)
m